. DEVICE XGP    
.spacing 20*5 mills;
.EVERY HEADING(,{PAGE},)
.AREA TEXT LINES 4 TO 40
.FONT 1 "MBIG[HHA,LCS]"
.font 2 "BMETI[HHA,LCS]"
.font 4 "BMUS[HHA,LCS]"
.font 6 "MBIG[HHA,LCS]"
.!XGPLFTMAR←400
.PORTION MAIN;
.PLACE TEXT;
.PAGE FRAME 138 WIDE 106 HIGH;
.COMPACT
.<< THICKEN UNDERLINE >>
.AT "↓_" ⊂ SNEAK(BEWARE("'177'1'46"))⊃;
.AT "_↓" ⊂ SNEAK(BEWARE("'177'1'51'3'4"))⊃;
.<< Put in a footnote. >>
.
.COUNT FOOTNOTE INLINE FROM 1 TO 999 IN PAGE PRINTING ⊂"*****"[1 TO FOOTNOTE]⊃
.<<	(IF THISDEVICE = "XGP" THEN "%51%*" ELSE "[1]");>>
.
.FOOTSEP ← "__________";
.AT "$$" ENTRY "$"
.	⊂
.	NEXT FOOTNOTE;
.	FOOTNOTE!;
.	SEND FOOT
.		⊂
.		BEGIN "NEXT FOOTNOTE"
.		SELECT 1;
.		SINGLE SPACE
.		SPACING 0 MILLS
.		INDENT 0,0,0;
.		(FOOTNOTE! & " ");
ENTRY
.		END "NEXT FOOTNOTE";
.		⊃;
.	⊃;
.
.TURN ON "%↓_↑↓[&]","α"
.at "!!" txt ";"	⊂
.("↑[%3"&"txt"[1]&"]&↓["&"txt"[2]&"]%*");
.COMMENT ("txt"[1]&"↑[%3"&"txt"[2]&"]&↓["&"txt"[3]&"]%*");
.  ⊃
.PAGE←81
.NEXT PAGE	
.begin verbatim
Example 77.  Beethoven, Diabelli Variations, Op.120
.END
.CENTER
%6⊂⊗⊃L[α%0.0,α%-16.55](17,22):N77X.PLT[C6,LCS]⊂⊗⊃%1
.<< SIZE 1 (*2) >>